home *** CD-ROM | disk | FTP | other *** search
/ Programming in Microsoft Windows with C# / Programacion en Microsoft Windows con C#.iso / Codigo / Páginas y transformaciones / MobyDick / MobyDick.cs next >
Encoding:
Text File  |  2002-05-06  |  2.8 KB  |  58 lines
  1. //---------------------------------------
  2. // MobyDick.cs ⌐ 2001 by Charles Petzold
  3. //---------------------------------------
  4. using System;
  5. using System.Drawing;
  6. using System.Drawing.Drawing2D;
  7. using System.Windows.Forms;
  8.  
  9. class MobyDick: PrintableForm
  10. {
  11.      public new static void Main()
  12.      {
  13.           Application.Run(new MobyDick());
  14.      }
  15.      public MobyDick()
  16.      {
  17.           Text = "Moby Dick, de Herman Melville";
  18.      }
  19.      protected override void DoPage(Graphics grfx, Color clr, int cx, int cy)
  20.      {
  21.                // Insertar aquφ las llamadas a RotateTransform, ScaleTransform, 
  22.                //   TranslateTransform y demßs 
  23.          
  24.  
  25.           grfx.DrawString("Me llamo Ismael. Hace algunos a±os\x2014no " +
  26.                           "importa exßctamente cuantos\x2014sin un " +
  27.                           "centavo en mi bolsa, y sin nada que me interesara " +
  28.                           "en particular en tierra firme, pensΘ " +
  29.                           "en navegar un poco para ver los ocΘanos " +
  30.                           "de todo el mundo. Es algo que hacφa para librarme " +
  31.                           "de la melancolφa y regularizar mi mente, " +
  32.                           "tanto como mi cuerpo. Siempre que " +
  33.                           "descubro un aire ce±udo en mi cara; " +
  34.                           "siempre que tengo un h·medo y lluvioso " +
  35.                           "mes de Noviembre en mi alma; siempre que " +
  36.                           "me detengo inadvertidamente frente a " +
  37.                           "las funerarias, y me incorporo a " +
  38.                           "cualquier funeral que me encuentro; y " +
  39.                           "especialmente cuando mi mal humor se apodera " +
  40.                           "de mi de tal modo que requiero de un fuerte " +
  41.                           "principio moral para evitar " +
  42.                           "salir deliberadamente a la calle y " +
  43.                           "arrancarle el sombrero met≤dicamente " +
  44.                           "a todo el mundo\x2014entonces, es el momento " +
  45.                           "de hacerme a la mar tan pronto como sea " +
  46.                           "posible. Este es mi sustituto de la pistola " +
  47.                           "y la bala. Con actitud filos≤fica " +
  48.                           "Cato se atraviesa con su espada; yo " +
  49.                           "me subo silencioso en el barco. Esto no " +
  50.                           "tiene nada de sorprendente. Si esto se supiera, " +
  51.                           "prßcticamente todos los hombres, " +
  52.                           "en alguna que otra ocasi≤n, compartirφan de buen grado " +
  53.                           "mis sentimientos sobre el ocΘano.",
  54.                           Font, new SolidBrush(clr), 
  55.                           new Rectangle(0, 0, cx, cy));
  56.      }
  57. }
  58.